旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴커 넬컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴엿 납 납 납 QuickBasic'de kar윂la웪뜤뛪 sorunlar� nas뛩 a웪뛪? 납 납 납 납 Konu: Modemin Basic'de programlanmas� (#3) 납 납 납 냅컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴冒 � PS 29 � Aral뛨'95 G걊ol Demir � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 쁪i ayd뛯 devam eden yaz� dizimizde a쭕rl뛨l� olarak modem programlama i뇁n gerekli olan donan뛪 ve makine dili bilgileri vermi웪ik. Bu bilgilerin deste쬲 ile art뛨 bizim tan뛡뜤뛪뛺 basic diline yeniden merhaba diyebiliriz. Modem programlamada gerekli basic komutlar뛫a g봹 atal뛪. 旼컴컴컴컴컴컴컴컴컴컴� 컴컴컴컴컴컴컴컴컴컴컴컴컴컴� OPEN "COM... Deyimi 쳐컴컴컴컴컴컴컴컴컴컴컴컴� 읕컴컴컴컴컴컴컴컴컴컴� Amac� : Bir ileti웙m dosyas� a뇅ak Dili : GwBasic, TurboBasic, Qbasic, QuickBasic, .... Format : OPEN "COMn:[parametreler] FOR RANDOM AS #DosyaNo COMn : Seri geni웞eme yuvas뛫뛫 numaras뛡뛯. Com1 veya Com2 olabilir, di쬮rlerine (Com3,Com4) izin verilmez. Bu ayn� zamanda IRQ3 ve IRQ4'den ba웛as뛫a da izin verilmeyece쬲 anlam뛫dad뛯. DosyaNo : Basic'in okuma yazma i웞emleri i뇁n kullanaca쭕 numarad뛯. Parametreler : H뛺 + Parite + Geni웞ik + Dur + 셬emsiz di쬮r parametrelerdir. H뛺 : 75,(..),2400,4800, 9600 Bps'dir.Varsay뛩an 300'd걊. 9600 Bps'den h뛺l� ileti웙me izin verilmez. Parite : G봭derme ve alma i뇁n kar윂l뛨 belirtir. S,O,M,E,N de쬮rlerini alabilirler. (tavsiye="N") Geni웞ik : 쁫eti웙me konu karakter geni웞i쬲ni belirtir. 4,5,6,7,8 de쬮rlerini alabilir. Varsay뛪 7 dir. Varsay뛩an uyguland뜤뛫da T걊k놽 karakterler modem yoluyla iletilemezler. Bu nedenle "8" kullan뛩mak zorundad뛯. Dur : Durdurma bitlerinin say뛱뛫� g봲terir. Y걃sek h뛺da daima "1" kullan뛩뛯. Di쬮r : 셬emsizdir. Yine de help dosyas뛫a bak뛫뛺. Tipik bir ileti웙m dosyas� 웫 웕kilde bir komutla a뇥l뛯: 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � OPEN "Com2:2400,N,8,1" FOR RANDOM AS #1 � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Burda ge놽n; Com2 yerine sadece Com1 atternatifdir. 2400 yerine ise normal ko웫llarda 4800 veya 9600 alternatif olabilir. N,8,1 yerine atternatif kullanmay뛫뛺. #1 yerine makinenizin izin verdi쬲 herhangi bir dosya numaras� olabilir. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Soru > � Basic OPEN "COM..." deyiminde ne yapar? � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� 1) Bellek ay뛯뛯 : Basic ba웞arken "C" anahtar� ile bir ileti웙m bellek miktar� belirtilmi� ise (셱n. QBX /C:16000 gibi) bu b걓걃l걃te, yoksa 512 byte b걓걃l겎걆de bir belle쬲 ileti웙m de ambar olarak kullanmak 걕ere ay뛯뛯. 2) Bu komutla verilen dosya numaras� bundan b봸le sanki bir fiziki dosya numaras� gibi g봱걄s걆 diye ayarlamalar yapar. 3) Yeni bir interrupt rutini yazar. E쬮r OPEN "Com1... ise bu rutini Ch kesmesine, OPEN"Com2... ise Bh kesmesine atar bundan evvel eski kesmelere ait adresleri saklar. Bu rutinde kullan뛩mak 걕ere ilgili ayg뛲뛫 adresini e쬮r Com1 ise 40h:00 dan, e쬮r Com2 ise 40h:02'den al뛯. 4) Modem portunu yani 40h:00 veya 40:02'den ald뜤� adresin bir fazlas뛫� IRQ 걊etmek i뇁n programlar (OUT &H3F9, 11 gibi). 5) 8259 chip'inden IRQ hatt� i뇁n onay al뛯 (Com1 i뇁n IRQ4, Com2 i뇁n IRQ3). Yukardaki i웞emlerden 3, 4 ve 5 nci maddeler bir basic program뛫da m갺ahale edilmesi gerekenlerdir. Bunlar� daha evvel i웞edik. 1 ve 2 nci maddeler ise bizim basic'den 봡걆� alacaklar뛪뛺d뛯. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Soru > � Modemim Com4'de ise ne olacak ? � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Hemen basic dilini b뛯ak뛭 Delphi'ye ge뇁n gibi acizlik belirtisi bir cevap vermeyece쬲m ama sorunun GwBasic'deki cevab뛫� bilmiyorum. Bu nedenle e쬮r GwBasic kullan뛹orsan뛺 Qbasic veya Quick Basic'e ge뇅enin tam s뛯as� diyerek GwBasic'de bu konudaki cahilli쬲mi ilan edebilirim. Qbasic ve 걌t� basic ailesinden diller Com1 ve Com2'nin adresini BIOS'dan al뛯lar. 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � Bios'da � � 40h:00 Com1'in adresi � � 40h:02 Com2'nin adresi � � 40h:04 Com3'걆 adresi � � 40h:06 Com4'걆 adresi � � 웕klinde tutulur � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� E쬮r modeminiz Com4'de ise ve ileti웙m dosyas� OPEN "Com1... ile a뇥lacak ise tek yapaca쭕n뛺 웕y "OPEN" komutundan evvel bios'un 40h:00 adresine &H2E8 adresini aktarmakt뛯. 旼컴컴컴컴컴컴커 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� CLOSE Deyimi 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 읕컴컴컴컴컴컴켸 Bu komutu modemi kapatmak i뇁n kullanaca쭕z fazla bir esprisi yoktur. Format: CLOSE #DosyaNo (셱ne쬲n CLOSE #1) >HangUp (Ba쬵ant뛫뛫 kesilmesi) : Modem kapat뛩madan evvel bir tak뛪 i웞emleri iptal edilmelidir. Kapat뛩maya 놹l뜜뛩am modem o s뛯ada ileti웙m halinde veya bir telefon 놽virmekte olabilir. Modem 웫 i웞emler ile kapat뛩mal뛡뛯: 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � PRINT #1, "ATH" � � PRINT #1, CHR$(13) � � PRINT #1, "ATZ" � � OUT Port + 4, (INP(Port + 4) AND 252) � � CLOSE #1 � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� 旼컴컴컴컴컴컴커 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� PRINT Deyimi 쳐컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 읕컴컴컴컴컴컴켸 Bu komutu modeme veri g봭dermek i뇁n kullanaca쭕z fazla bir esprisi yoktur. Format: PRINT #DosyaNo,Veri$ (셱ne쬲n PRINT #1, "ATZ") 旼컴컴컴컴컴컴컴컴컴컴컴컴� 컴컴컴컴컴컴컴컴컴컴컴컴컴� INPUT$ ve LOC Deyimleri 쳐컴컴컴컴컴컴컴컴컴컴컴� 읕컴컴컴컴컴컴컴컴컴컴컴컴� Bu komutlar� modemden veri okumak i뇁n kullanaca쭕z fazla bir esprileri yoktur. (셱ne쬲n A$ = INPUT$(LOC(1),#1) 旼컴컴컴컴컴컴컴컴컴컴컴컴컴커 컴컴**컴**컴�******컴컴컴� Laf bitti, 웙mdi i� zaman� 쳐컴컴컴******컴**컴**� 읕컴컴컴컴컴컴컴컴컴컴컴컴컴켸 Buraya kadar 뵩rendiklerimiz sayesinde ter t걊l� modemi basic'de programlayabiliriz. Par놹lar� nas뛩 birle웪irece쬲z? A웏쭕da verilen 봱ne쬲 iyi incelemenizi 봭eririm. A웏쭕da verilen yordamlarda mikro i웞emcinin basic'e esir d걼mesinin bir y뛩l뛨 봹eti yer almaktad뛯. >삜te size bir terminal program� 놽kirde쬲: 旼컴컴컴컴컴컴컴컴컴컴컴� � Ba웞ang뜃 Tavsiyeleri � 旼컴컴컴컴컴컴컴컴컴컴컨컴컴컴컴컴컴컴컴컴컴컴컨컴컴컴컴컴컴컴컴컴컴컴커 �'QBASIC'de de 놹l뜜뛯 � �' bu dilde bellek sorunu nedeniyle yava� bir h뛺 se뇁niz. � � � �'QuickBasic de 놹l뜜mas� i뇁n ise versiyon 7.1 QBX /L QBX /C:32000 � �' versiyon 4.5 QB /L QB /C:32000 � �' 웕klinde y걃lenmelidir. � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 旼컴컴컴컴컴컴컴컴컴컴컴� � Ana Program � 旼컴컴컴컴컴좔컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴컴컴커 쿏ECLARE SUB EkranAc (Tip!) � 쿏ECLARE SUB Terminal () � 쿏ECLARE SUB ModemiKapa (ModemAdresi!) � 쿏ECLARE SUB ModemiAc (ModemAdresi!, Hiz!, IrqNo!) � � � 쿏IM SHARED Sakla(27) � � � �'=================================================� �'De쬲웛enler � �'Kendi modem bilgilerinizi giriniz � � � � Irq = 5: Port = &H3E8: Baud = 57600: Ansi = 1 � � � �'Se놽nekler � �'Irq = 2: Port = &H2E8: Baud = 2400 : Ansi = 1 � �'Irq = 3: Port = &H2F8: Baud = 4800 : Ansi = 0 � �'Irq = 4: Port = &H3E8: Baud = 9600 � �'Irq = 5: Port = &H3F8: Baud = 14400 � �'Irq = 7 : Baud = 19200 � �' Baud = 38400 � �' Baud = 57600 � �' Baud = 115200 � � � �'=================================================� �'Program ba웞ang뛠� � 쿎ALL ModemiAc(Port, Baud, Irq) � 쿐kranAc (Ansi) � 쿟erminal � 쿘odemiKapa (Port) � 쿐ND � � � � � �'=================================================� �'IRQ hatt뛫뛫 a뇥lmas� i뇁n makine dili yordam� � 쿔RQSerbest: � 쿏ATA &H50 : 'PUSH AX � 쿏ATA &H53 : 'PUSH BX � 쿏ATA &H51 : 'PUSH CX � 쿏ATA &HFA : 'CLI � 쿏ATA &H31, &HC9 : 'XOR CX,CX � 쿏ATA &HB1, 2 : 'MOV CL,02 � 쿏ATA &HBB, 1, 0 : 'MOV BX,0001 � 쿏ATA &HD3, &HE3 : 'SHL BX,CL � 쿏ATA &HF7, &HD3 : 'NOT BX � 쿏ATA &HE4, &HA1 : 'IN AL,A1 � 쿏ATA &H20, &HF8 : 'AND AL,BH � 쿏ATA &HE6, &HA1 : 'OUT A1,AL � 쿏ATA &HE4, &H21 : 'IN AL,21 � 쿏ATA &H20, &HD8 : 'AND AL,BL � 쿏ATA &HE6, &H21 : 'OUT 21,AL � 쿏ATA &HFB : 'STI � 쿏ATA &H59 : 'POP CX � 쿏ATA &H5B : 'POP BX � 쿏ATA &H58 : 'POP AX � 쿏ATA &HCB : 'RETF � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 旼컴컴컴컴컴컴컴컴컴컴컴� � Ekran A뇅a Yordam� � 旼컴컴컴컨컴컴컴컴컴컴컴컴컴컴컴컨컴컴컴컴� �'Ekran Ansi veya TTY modda a뇥l뛹or � 쿞UB EkranAc (Tip) � � IF Tip = 1 THEN � � OPEN "CON" FOR OUTPUT AS #2 'Ansi � � ELSE � � OPEN "SCRN:" FOR OUTPUT AS #2 'TTY � � END IF � 쿐ND SUB � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� 旼컴컴컴컴컴컴컴컴컴컴컴� � Modem A뇅a Yordam� � 旼컴컴컴컴컴컴컴컴좔컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴컴컴컴커 쿞UB ModemiAc (ModemAdresi, Hiz, IrqNo) � �'Baz� de쬮rler saklan뛹or � � DEF SEG = 0 � � FOR I = 40 TO 63 '쁭terrupt adresleri � � Sakla(I - 40) = PEEK(I) � � NEXT � � Sakla(24) = INP(&H21) '8259 (PIC) de쬮rleri � � Sakla(25) = INP(&HA1) � � Sakla(26) = PEEK(1026) 'Com2 eski ayg뛲 adresi � � Sakla(27) = PEEK(1027) � � � �'=========================================================� �'Com2'ye bizim modem atan뛹or � � POKE 1027, ModemAdresi \ 256 � � POKE 1026, ModemAdresi AND 255 � � � �'=========================================================� �'Yeni ayg뛲 (bizim modem) a뇥l뛹or � � OPEN "Com2:2400,N,8,1" FOR RANDOM AS #1 � � � �'=========================================================� �'Modem se뇁len h뛺 i뇁n ayarlan뛹or � � Sakla = INP(ModemAdresi + 3) � � OUT ModemAdresi + 3, 128 � � OUT ModemAdresi, 115200 / Hiz � � OUT ModemAdresi + 3, Sakla � � � �'=========================================================� �'Com2'ye ait IRQ3 kapat뛩뛹or, PIC de쬮rleri iade ediliyor� � OUT &H21, Sakla(24) � � OUT &HA1, Sakla(25) � � � �'=========================================================� �'Bizim modeme ait IRQ'nun, Com2'ye ait interruptu � �'kullanmas� sa쬵an뛹or � � IntAdres = (IrqNo + 8) * 4 � � POKE IntAdres, PEEK(44) � � POKE IntAdres + 1, PEEK(45) � � POKE IntAdres + 2, PEEK(46) � � POKE IntAdres + 3, PEEK(47) � � � �'=========================================================� �'Bizim modemin IRQ'su i뇁n 8259'dan izin al뛫뛹or � � RESTORE IRQSerbest � � REDIM Oku(31) � � DEF SEG = VARSEG(Oku(0)) � � � � FOR PicMask = 0 TO 31 � � READ D% � � IF PicMask = 7 THEN D% = IrqNo � � POKE VARPTR(Oku(0)) + PicMask, D% � � NEXT PicMask � � � � CALL ABSOLUTE(VARPTR(Oku(0))) � � � �'Modemin a뇥lmas� tamamland� � 쿐ND SUB � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 旼컴컴컴컴컴컴컴컴컴컴컴� � Modem Kapama Yordam� � 旼컴컴컴컴컴컴컴컴좔컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴컴컴컴커 쿞UB ModemiKapa (ModemAdresi) � �'Modem kapat뛩뛹or � � PRINT #1, "ATH" � � OUT ModemAdresi + 4, (INP(ModemAdresi + 4) AND 252) � � CLOSE #1 � �'=========================================================� �'Eski de쬮rler iade ediliyor � � DEF SEG = 0 � � FOR I = 40 TO 63: '쁭terrupt adresleri � � POKE I, Sakla(I - 40) � � NEXT � � OUT &H21, Sakla(24) 'PIC de쬮rleri � � OUT &HA1, Sakla(25) � � POKE 1026, Sakla(26) 'Com2 adresi � � POKE 1027, Sakla(27) � 쿐ND SUB � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴� � Terminal (Yerel ileti웙m) � 旼컴컴컴컴컴컴좔컴컴컴컴컴컴컴컴컴컴컴컴컴컴좔컴컴컴컴컴컴커 쿞UB Terminal � 쿎OLOR 7, 1 � 쿎LS � 쿗OCATE 1, 1, 1: PRINT "Modem 쁭stall ediliyor" � 쿛RINT #1, "ATZ" � 쿝R = FIX(TIMER) � 쿏O � � IF LOC(1) > 0 THEN B$ = B$ + INPUT$(LOC(1), #1) � � IF INSTR(B$, "OK") > 0 THEN EXIT DO � � IF FIX(TIMER) - RR > 5 THEN � � PRINT "Modem Port Adresi ve IRQ de쬮rleri hatal� !!" � � EXIT SUB � � END IF � 쿗OOP � � � 쿗OCATE 1, 1, 1 � 쿛RINT "Modem uygun bulundu, ba웞ad� (�뛨뜜 i뇁n Esc)" � 쿏O � � A$ = INKEY$ � � IF A$ <> "" THEN � � IF ASC(A$) = 27 THEN EXIT DO � � PRINT #1, A$; : 'Modem girdisi � � ELSE � � IF LOC(1) > 0 THEN � � B$ = INPUT$(LOC(1), #1) � � PRINT #2, B$; : 'Modem 뇥kt뛱� � � END IF � � END IF � 쿗OOP � 쿐ND SUB � 읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 Basic'de modemin programlanmas� ile ilgili yaz� dizimiz burada sona ermektedir. Modemin programlanmas뛫da sadece temel ta웞ar� verilmi웪ir. Bilgisayar뛫 bir ba웛a bilgisayar ile telefon hatt� kullanarak irtibat뛫� verilen bilgiler ile sa쬵ayabilirsiniz. Ve uzaktaki bir arkada윂n뛺 ile klavye 걕erinden sohbet edebilirsiniz. Ancak dosya transferi i뇁n iki birim aras뛫da bir dosya transfer protolu yap뛩mas� gerekir. Harici olarak kullan뛩an protokeller piyasada mevcuttur. En yayg뛫 olan Z modem ileti웙m protolu olup DSZ.EXE veya DSZ.COM isimli programlar ile haricen kullan뛩abilir. G봱걼mek 걕ere.... Adres: PC World/T걊kiye PS-G걊ol Demir Eski B걓걃dere cad. Sanayi mah. Beh놽t sokak No:25/B Kat:5 80650 4.Levent / 쁓TANBUL Internet : gurold@doruk.com.tr